home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD1.ISO / ejv8-cd1 / somm.dxr / 00061_Met majuscule et enleve -_-.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  1.2 KB  |  29 lines
  1. on majuscule
  2.   k = value(member("total_acteur").line[1])
  3.   repeat with piste = 4 to k
  4.     caracter = member(piste, 4).name
  5.     repeat with i = 1 to member(caracter, 4).line.count
  6.       if charToNum(member(caracter, 4).line[i].char[1]) > 96 then
  7.         numascii_maj = charToNum(member(caracter, 4).line[i].char[1]) - 32
  8.         char_maj = numToChar(numascii_maj)
  9.         delete member(caracter, 4).line[i].char[1]
  10.         put char_maj before (member caracter of castLib 4).line[i].char[1]
  11.       end if
  12.       if (caracter contains "_SCN") or (caracter contains "_NOSCN") then
  13.         repeat with X = 1 to member(caracter, 4).line[i].char.count
  14.           if member(caracter, 4).line[i].char[X] = "_" then
  15.             delete member(caracter, 4).line[i].char[X]
  16.             put " " before (member caracter of castLib 4).line[i].char[X]
  17.           end if
  18.         end repeat
  19.         lettres = member(caracter, 4).line[i].char.count
  20.         if member(caracter, 4).line[i].char[lettres - 3] = "." then
  21.           repeat with w = lettres down to lettres - 3
  22.             delete member(caracter, 4).line[i].char[w]
  23.           end repeat
  24.         end if
  25.       end if
  26.     end repeat
  27.   end repeat
  28. end
  29.